Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/LDOT 592,912.9 17,795.75 257,147.8 1,185,826 46,240.69 551,203.9 592,912.95 100
lp://DOT/LCDOT 4,053,798.5 52.36 1,568,324.7 4,043,053 52.22 1,707,714.1 10,745.86 1.8
lp://AUSD/LCDOT 2,223,977.6 36.04 1,099,612.6 2,218,086 35.94 1,114,431.1 5,891.24 1
lp://ACA/AUSD 1,565,174.2 874.79 649,579.5 1,566,006 874.74 1,189,775.9 831.69 0.1

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/AUSD -1,355,762.94 -130.18 -10,459.67 NA NA NA NA NA
lp://KINT/AUSD -1,223,818.22 -609.86 -7,366.82 NA NA NA NA NA
lp://PHA/AUSD -988,858.70 -1.36 -2,460.10 NA NA NA NA NA
lp://AUSD/KINT 1,200,278.99 -446.77 -6,608.97 20,007.10 890.46 14,263.68 1,180,271.89 NA
lp://AUSD/PHA 978,097.69 -560.29 -3,235.98 22,939.27 2.77 10,695.83 955,158.41 NA
lp://AUSD/KBTC 1,227,529.32 -496.38 -10,505.46 422,191.47 4,780.11 97,942.33 805,337.85 NA
lp://TAI/taiKSM 0.00 0.00 0.00 4,743.60 161.88 1,171.43 4,743.60 NA
lp://KAR/LKSM 652,637.51 0.00 89,991.69 651,088.78 75.78 108,694.42 1,548.73 NA
lp://AUSD/KSM 587,224.18 45,569.87 554,013.32 588,327.50 45,569.87 555,824.18 1,103.32 NA
lp://KAR/KSM 910,106.83 34.14 207,749.39 909,114.85 35.25 212,913.50 991.99 NA
lp://AUSD/LKSM 447,003.82 18,701.43 194,909.73 447,522.40 19,352.19 261,661.29 518.58 NA
lp://KSM/LKSM 122,509.63 2,354.61 51,847.33 122,656.23 2,358.21 52,406.51 146.60 NA
lp://KAR/QTZ 19,856.92 268.17 6,986.46 19,981.62 329.34 8,330.57 124.70 NA
lp://AUSD/QTZ 21,410.98 0.00 6,720.67 21,531.98 0.69 18,281.86 121.00 NA
lp://KAR/AUSD 446,352.23 15,646.10 192,332.14 446,236.41 18,520.68 270,896.38 115.81 NA
lp://KSM/ARIS 61.75 5.02 69.19 123.51 15.16 162.52 61.75 NA
lp://AUSD/CSM 20,805.31 488.24 7,643.24 20,798.85 1,220.96 10,712.06 6.46 NA
lp://AUSD/RMRK 12,348.85 2.76 24,293.22 12,354.96 2.76 24,327.36 6.10 NA
lp://KSM/RMRK 6,958.35 2.76 29,586.12 6,958.62 2.76 63,574.32 0.27 NA
lp://AUSD/BNC 58,561.95 455.36 11,546.57 58,561.95 455.65 11,549.20 0.00 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```